VBScript → Lua
This function checks if the current script user is member of the given group.
Please see the Introduction chapter for some usage instructions.
'----------------------------------------------------------------
' IsUserInGroup
'
' Checks if the current script user is in the given group
'
' Parameter:
' sGroup group number or name
'
' Return:
' boolean
'----------------------------------------------------------------
Function IsUserInGroup ( sGroup )
PBXScript.OutputTrace "----------> IsUserInGroup"
PBXScript.OutputTrace "sGroup = " & sGroup
Dim bReturn
bReturn = False
Dim Users
Set Users = g_PBXConfig.GetUserByAddress(sGroup)
Dim User
For Each User In Users
PBXScript.OutputTrace "Found group member " & User.Name
if PBXUser.Name = User.Name then
PBXScript.OutputTrace "Current script user '" & PBXUser.Name & "' is member of the group '" & sGroup & "'!"
bReturn = True
end if
Next
IsUserInGroup = bReturn
PBXScript.OutputTrace "bReturn = " & bReturn
PBXScript.OutputTrace "<---------- IsUserInGroup"
End Function
This function makes use of the Server Script API functions PBXConfig.GetUserByAddress to resolve all users in the given group and PBXUser.Name to get the name of the current script user. It also uses PBXScript.OutputTrace to write trace information into the SwyxServer trace file.
This function was initally posted into this forum topic.
By Tom Wellige